home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / docs / mags / MIPreport4.lha / MIPreport4 / Install_MIP4 < prev    next >
Text File  |  1999-03-18  |  3KB  |  95 lines
  1. ; $VER: Install_M.I.P.report #4 by Wincle/VRT v2.0 (17.4.99) Lame Code & Design
  2.  
  3. (
  4.  
  5.  
  6. (procedure testcomp
  7.   (set procesor (database "cpu"))
  8. (set frek (database "vblank"))
  9. (set chip (database "graphics-mem"))
  10. (set total (database "total-mem"))
  11. )
  12.  
  13. (procedure getcurrentversion name
  14.   ( (set vernum (getversion name (resident)))
  15.     (set ver (/ vernum 65536))
  16.     (set rev (- vernum (* ver 65536)))
  17.   )
  18. )
  19.  
  20. (procedure copymip
  21.  (
  22.     (copyfiles (source "mip1.dat") (dest @default-dest))
  23.     (copyfiles (source "engine.dat") (dest @default-dest))
  24.     (copyfiles (source "mip.index") (dest @default-dest))
  25.     (copyfiles (source "mip") (dest @default-dest))
  26.     (copyfiles (source "mipreport") (dest @default-dest))
  27.     (copyfiles (source "readme") (dest @default-dest))
  28.     (copyfiles (source "intro") (dest @default-dest))
  29.     (copyfiles (source "prefs") (dest @default-dest))
  30.     (copyfiles (source "mipprefs") (dest @default-dest))
  31.     (copyfiles (source "m.i.p.prefs") (dest @default-dest))
  32.     (copyfiles (source "mipfonts/") (dest (tackon @default-dest "MIPfonts")) (ALL) )
  33.  
  34.     (copyfiles (source "icony/mip_prefs.info") (dest @default-dest) (newname "Prefs.info"))
  35.     (copyfiles (source "icony/mip_mip.info") (dest @default-dest) (newname "mip.info"))
  36.     (copyfiles (source "icony/mip_intro.info") (dest @default-dest) (newname "Intro.info"))
  37.     (copyfiles (source "icony/mip_readme.info") (dest @default-dest) (newname "ReadmE.info"))
  38.  )
  39. )
  40.  
  41. (procedure askmwb
  42. (
  43. (getcurrentversion "intuition.library")
  44.  
  45. (if (>= ver 40) (set text "OS 3.1 ...Hmmmm")
  46. (if (< ver 39)  (set text "OS 2.04 ?!?, What's up?"))
  47. (set text "OS 3.0 , macht niX")
  48. )
  49.  
  50. (testcomp)
  51.  
  52.     (set MWB
  53.     (askchoice
  54.         (prompt "\n" text "\n Procesor:  " procesor "        VBlank:   " frek "    \n Chip RAM:  " chip "     Fast RAM:  " (- total chip) "\n\nDo you wanna install the Special Icon Set?\n")
  55.  
  56.         (help (cat "\n\n  Fuck the best we are the rest\n\n")
  57.         )
  58.             (choices "YeS! I do" "No, I do")
  59.         (default 0)
  60.         )
  61.      )
  62. )
  63. )
  64.  
  65.  
  66. (welcome "M.I.P Installer\nMonkey Island Party - Speed Edition\n Sorry,NoW 0nly Czech LanguAg3\n\nM.I.P. report #4   © Vertical Syndicate '99")
  67. (if (= @user-level 0) (abort "\n\nLAMER MODE\n\n :)")
  68.  (if (= @user-level 1) (abort "\n\nBoMb MODE\n\n "))
  69. )
  70. (set @user-level 2)
  71. (set @app-name "MIP #4")
  72.  
  73. ;  ( (set insver (getversion "c:installer" ))
  74. ;    (message insver)
  75. ;  )
  76.  
  77.     (testcomp)
  78.     (askmwb)
  79. ; HDD
  80.  (
  81.    (set @default-dest
  82.     (askdir (prompt "Select the directory to install MIPpreport #4")
  83.         (help @askdir-help)
  84.         (default @default-dest)
  85.     )
  86.    )
  87.     (makedir (tackon @default-dest "MIP4"))
  88.     (copyfiles (source "icony/MIP_drawer.info")(dest @default-dest) (newname "MIP4.info"))
  89.     (set @default-dest (tackon @default-dest "mip4"))
  90.     (copymip)
  91.  
  92.  
  93. (exit "\n\n\nMip Report has just been installed on your\n grandmother with the special Speed (no)Icons set.\n" (quiet))
  94.  
  95. ))